#!/usr/bin/env perl

use utf8;
use strict;

my $dir = '.';

if(defined $ARGV[0]){
    $dir = $ARGV[0];
}

my @dir_files;

if($dir =~ /\/\z/){
    @dir_files = <$dir*>;
}
else{
    @dir_files = <$dir/*>;
}

foreach (@dir_files){
    print "$_ =====> ".readlink($_)."\n" if -l;
}
